home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1992 March & April / rerun-1992-03-04-side-b.d64 / raging thunder (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  8KB  |  250 lines
  1. 1 rem raging thunder by craig buck
  2. 2 ifol=1andtl<>1then2456
  3. 3 ifol=1andtl=1then2458
  4. 4 poke53265,peek(53265)and239
  5. 5 poke 53265,peek(53265)or 64
  6. 6 poke 53281,15:poke 53280,0
  7. 7 poke53282,15:poke 53283,11
  8. 8 poke53284,15
  9. 9 c=7:poke 53272,(peek(53272)and 240)or 2*c
  10. 10 s=53248:e=53760:n=14336
  11. 20 poke 56333,127:poke 1,51
  12. 25 l=e-s:en=l+n
  13. 30 a%=l/256:a=l-256*a%:b%=(en-a)/256:b=en-256*b%-a:c%=(e-a)/256:c=e-256*c%-a
  14. 40 poke 781,a%+1:poke 782,a:poke 90,c:poke 91,c%:poke 88,b:poke89,b%:sys41964
  15. 50 poke 1,55:poke 56333,129
  16. 55 read u:if u= -1 then 1000
  17. 60 poke 56,48
  18. 70 for j=u+2048tou+2055:read n:poke j,n:next j
  19. 75 goto 55
  20. 80 data 12504,255,255,255,255,255,255,255,255
  21. 90 data 12512,223,223,223,223,223,223,223,223,12520,251,251,251,251,251,251
  22. 100 data 251,251,12528,0,0,255,255,0,255,255,255
  23. 110 data 12536,0,0,255,255,192,223,223,223,12552,0,0,255,255,3,251,251,251
  24. 120 data 12568,223,223,223,192,255,255,0,0,12576,251,251,251,3,255,255,0,0
  25. 130 data 12584,255,255,255,0,255,255,0,0,12592,255,0,255,0,255,0,255,0
  26. 140 data 12600,255,255,255,0,255,255,255,255,12608,0,0,255,255,255,255,255
  27. 150 data 255,12616,0,126,126,126,126,126,126,0
  28. 160 data 12624,6,6,6,6,6,6,6,6,12632,0,255,255,0,0,0,0,0,12640,6,7,7
  29. 170 data 0,0,0,0,0,12648,0,255,255,0,0,0,0,0,12656,0,248,254,255,255
  30. 175 data 254,248,0,12664,248,255,255,127,127,255,255,248,-1
  31. 1000 rem     screen  printout
  32. 1005 poke53281,0:poke53280,0
  33. 1007 gosub1010:goto1510
  34. 1010 poke53282,15:poke53284,15:poke53269,0
  35. 1015 print"[147]      [158] raging thunder       [151]*[depth[151][[146][[["
  36. 1020 print"[152]_^^^^^^^^^^^^^^^^^^^^^^^^^^!";
  37. 1030 print"[151]*[110[151][ft[151][[[146][ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]]";
  38. 1040 print"[151]*[[[[[[[[[[ [152]\[160][160][206][160][201][160][199][160][200][160][212][160][160][160][160][160][215][160][207][160][204][160][198][152][160][160][160]]";
  39. 1050 print"[151]*[[158]heading[151][[146][ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]]";
  40. 1060 print"[151]*[[158]000[151][[158]deg[151][146][[ [152]\[160][160][160][160][160][160][160][160][154][193][160][215][193][212][197][210][217][160][199][210][193][214][197][152][160][160][160][160]]";
  41. 1070 print"[151]*[[[[[[[[[[ [152]\[160][160][160][160][160][160][160][160][154][212][207][160][193][206][217][207][206][197][160][215][200][207][152][160][160][160][160][160]]";
  42. 1080 print"[151]*[speed[151][146][[[[ [152]\[160][160][160][160][160][160][160][160][154][196][193][210][197][211][160][197][206][199][193][199][197][152][160][160][160][160][160][160]]";
  43. 1090 print"[151]*[000[151][knts[151][146][ [152]\[160][160][160][160][160][160][160][160][154][207][213][210][160][201][205][205][197][206][197][206][212][152][160][160][160][160][160][160]]";
  44. 1100 print"[151]*[[[[[[[[[[ [152]\[160][160][160][160][160][160][160][160][154][198][204][197][197][212][152][160][160][160][160][160][160][160][160][160][160][160][160][160]]";
  45. 1110 print"[151]*[[159]rudder[151][146][[[ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][154][193][160][194][160][211][152][160][160][160]]";
  46. 1120 print"[151]*[[159]straight[151][146][ [152]\[160][154][199][211][160]6[154][160][160][204][197][214][197][204][160]1[154][160][160][160][160]0[160]0[160]1[152][160][160][160]]";
  47. 1130 print"[151]*'''''''''' [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]]";
  48. 1140 print"[151]*[[129]weapons[151][146][[ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]]";
  49. 1150 print"[151]*[-------[151][146][[ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]]";
  50. 1160 print"[151]*[[158]tube[151][[158]1[151][146][[[ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]]";
  51. 1170 print"[151]*[[[[[[[[[[ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]]";
  52. 1180 print"[151]*'''''''''' [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]]";
  53. 1190 print"[151]*[[[[[[[[[[ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]]";
  54. 1200 print"[151]*[[158]radar[151][146][[155])[151][[ [152]#%%%%%%%%%%%%%%%%%%%%%%%%%%$";
  55. 1210 print"[151]*[[158]u v d[151][146][[155])[151][[151][                             [151]*[[158]72 se[151][146][[155])[151][["
  56. 1220 print"[151] [145]  [152]/st[158]00[152].  [152]/th[158]00[152].  [152]/sa[158]00[152].   [151]*[[[[[[[[[["
  57. 1230 print"[151]                            ,+++++++++";
  58. 1240 poke1942,43:poke56214,11
  59. 1250 return
  60. 1510 open2,8,2,"0:it sprites,s,r"
  61. 1520 input#2,n:rem # of sprites
  62. 1525 input#2,n$
  63. 1526 rem
  64. 1527 rem pointers moved to 10240
  65. 1528 rem for more room (page 104)
  66. 1529 rem
  67. 1530 for p=10240to10302:input#2,d:pokep,d:next p
  68. 1535 input#2,n$
  69. 1540 for p=10304to10366:input#2,d:pokep,d:next p
  70. 1545 input#2,n$
  71. 1550 for p=10368to10430:input#2,d:pokep,d:next p
  72. 1555 input#2,n$
  73. 1560 for p=10432to10494:input#2,d:pokep,d:next p
  74. 1565 input#2,n$
  75. 1570 forpt=10496to10558:input#2,d:pokept,d:next
  76. 1575 input#2,n$
  77. 1580 for p=10560to10622:input#2,d:pokep,d:next p
  78. 1585 input#2,n$
  79. 1590 for p=10624to10686:input#2,d:pokep,d:next p
  80. 1595 input#2,n$
  81. 1600 for p=10688to10750:input#2,d:pokep,d:next p
  82. 1605 input#2,n$
  83. 1610 for p=10752to10814:input#2,d:pokep,d:next p
  84. 1615 input#2,n$
  85. 1620 for p=10816to10878:input#2,d:pokep,d:next p
  86. 1625 input#2,n$
  87. 1630 for p=10880to10942:input#2,d:pokep,d:next p
  88. 1640 input#2,n
  89. 1645 input#2,n$
  90. 1650 for p=10944to11006:input#2,d:pokep,d:nextp
  91. 1655 input#2,n$
  92. 1660 for p=11008to11070:input#2,d:pokep,d:nextp
  93. 1665 input#2,n$
  94. 1670 for p=11072to11134:input#2,d:pokep,d:nextp
  95. 1675 input#2,n$
  96. 1680 for p=11136to11198:input#2,d:pokep,d:nextp
  97. 1685 input#2,n$
  98. 1690 for p=11200to11262:input#2,d:pokep,d:nextp
  99. 1695 input#2,n$
  100. 1700 for p=11264to11326:input#2,d:pokep,d:nextp
  101. 1705 input#2,n$
  102. 1710 for p=11328to11390:input#2,d:pokep,d:nextp
  103. 1715 input#2,n$
  104. 1720 for p=11392to11454:input#2,d:pokep,d:nextp
  105. 1725 input#2,n$
  106. 1730 for p=11456to11518:input#2,d:pokep,d:nextp
  107. 1735 input#2,n$
  108. 1740 for p=11520to11582:input#2,d:pokep,d:nextp
  109. 1745 input#2,n$
  110. 1750 for p=11584to11646:input#2,d:pokep,d:nextp
  111. 1755 input#2,n$
  112. 1760 for p=11648to11710:input#2,d:pokep,d:nextp
  113. 1765 input#2,n$
  114. 1770 for p=11712to11774:input#2,d:pokep,d:nextp
  115. 1786 rem
  116. 1800 input#2,n
  117. 1805 input#2,n$
  118. 1810 for p=11776to11838:input#2,d:pokep,d:nextp
  119. 1815 input#2,n$
  120. 1820 for p=11840to11902:input#2,d:pokep,d:nextp
  121. 1825 input#2,n$
  122. 1830 for p=11904to11966:input#2,d:pokep,d:nextp
  123. 1835 input#2,n$
  124. 1840 for p=11968to12030:input#2,d:pokep,d:nextp
  125. 1845 input#2,n$
  126. 1850 for p=12032to12094:input#2,d:pokep,d:nextp
  127. 1863 rem
  128. 1900 input#2,n
  129. 1905 input#2,n$
  130. 1910 forp=12096to12158:input#2,d:pokep,d:nextp
  131. 1915 input#2,n$
  132. 1920 forp=12160to12222:input#2,d:pokep,d:nextp
  133. 1925 input#2,n$
  134. 1930 forp=12224to12286:input#2,d:pokep,d:nextp
  135. 1935 input#2,n$
  136. 1940 forp=12288to12350:input#2,d:pokep,d:nextp
  137. 1945 input#2,n$
  138. 1950 forp=12352to12414:input#2,d:pokep,d:nextp
  139. 1955 input#2,n$
  140. 1960 forp=12416to12478:input#2,d:pokep,d:nextp
  141. 1965 input#2,n$
  142. 1970 forp=12480to12542:input#2,d:pokep,d:nextp
  143. 1975 input#2,n$
  144. 1980 forp=12544to12606:input#2,d:pokep,d:nextp
  145. 1985 input#2,n$
  146. 1990 forp=12608to12670:input#2,d:pokep,d:nextp
  147. 2005 input#2,n$
  148. 2010 forp=12672to12734:input#2,d:pokep,d:nextp
  149. 2015 input#2,n$
  150. 2020 forp=12736to12798:input#2,d:pokep,d:nextp
  151. 2025 input#2,n$
  152. 2030 forp=12800to12862:input#2,d:pokep,d:nextp
  153. 2035 input#2,n$
  154. 2040 forp=12864to12926:input#2,d:pokep,d:nextp
  155. 2045 input#2,n$
  156. 2050 forp=12928to12990:input#2,d:pokep,d:nextp
  157. 2055 input#2,n$
  158. 2060 forp=12992to13054:input#2,d:pokep,d:nextp
  159. 2070 cl